

## COMPLETE
variables <- list(
            RiotStudy=c("UnscrambleWords1", "BrainstormObject1", "Sudoku1", "BrainstormWords1", "MemoryPicture1", "TypingNumbers1"),	
		    Synchrony=c("UnscrambleWords1", "BrainstormObject1", "Sudoku1",                     "MemoryPicture1"                  , "MatrixSolving1"),
          	   German=c("UnscrambleWords1", "BrainstormObject1"           , "BrainstormWords1"),
         Technion2016=c("UnscrambleWords1", "BrainstormObject1", "Sudoku1"                    , "MemoryPicture1"                  , "MatrixSolving1"),
              MBA2012=c("UnscrambleWords1", "BrainstormObject1", "Sudoku1"                                       ),
            XvalStudy=c("UnscrambleWords1", "BrainstormObject1", "Sudoku1", "BrainstormWords1"                  , "TypingNumbers1"),
 T1T2CrowdflowerJoint=c("UnscrambleWords1", "BrainstormObject1", "Sudoku1", "BrainstormWords1", "MemoryPicture1", "TypingNumbers1", "MatrixSolving1"),
                Kiwon=c("UnscrambleWords1", "BrainstormObject1", "Sudoku1"                    , "MemoryPicture1"),
 CMUGenderStatusStudy=c("UnscrambleWords1", "BrainstormObject1", "Sudoku1"                                                        , "MatrixSolving1"),
		 Technion2015=c("UnscrambleWords1", "BrainstormObject1", "Sudoku1"                    , "MemoryPicture1"                  , "MatrixSolving1"),
		 Technion2017=c("UnscrambleWords1", "BrainstormObject1", "Sudoku1"                                      ),
              MBA2015=c("UnscrambleWords1", "BrainstormObject1", "Sudoku1", "BrainstormWords1", "MemoryPicture1"                  , "MatrixSolving1"),
              MBA2014=c("UnscrambleWords1", "BrainstormObject1", "Sudoku1", "BrainstormWords1", "MemoryPicture1", "TypingNumbers1", "MatrixSolving1"),
          	      USC=c("UnscrambleWords1", "BrainstormObject1", "Sudoku1"                    , "MemoryPicture1"),	
          	 FortSill=c("UnscrambleWords1", "BrainstormObject1"           ),	
T1T2CrowdflowerRound1=c("UnscrambleWords1", "BrainstormObject1", "Sudoku1", "BrainstormWords1", "MemoryPicture1", "TypingNumbers1", "MatrixSolving1"),
        T1T2CMUSO2013=c("UnscrambleWords1", "BrainstormObject1", "Sudoku1", "BrainstormWords1", "MemoryPicture1", "TypingNumbers1", "MatrixSolving1"),
	             Bots=c("UnscrambleWords1", "BrainstormObject1", "Sudoku1"                                      ),
        T1T2CMUSO2015=c("UnscrambleWords1", "BrainstormObject1", "Sudoku1", "BrainstormWords1", "MemoryPicture1", "TypingNumbers1", "MatrixSolving1"),
	     TilburgStudy=c("UnscrambleWords1", "BrainstormObject1", "Sudoku1", "BrainstormWords1", "MemoryPicture1", "TypingNumbers1"),
          Hopkins2015=c("UnscrambleWords1", "BrainstormObject1", "Sudoku1", "BrainstormWords1", "MemoryPicture1", "TypingNumbers1", "MatrixSolving1"),
	      Hopkins2016=c("UnscrambleWords1", "BrainstormObject1", "Sudoku1"                    , "MemoryPicture1")
)

